home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
geos-archive
/
GEOS-D64
/
GEOS - Geos #005 (19xx)(-).d64
/
GEOlIST 2.1ff
(
.txt
)
< prev
next >
Wrap
GEOS ConVerT
|
2019-04-13
|
8KB
|
310 lines
eoList 2.1FF
SEQ formatted GEOS file V1.0
Epson FX-80
RT 1.1
eoList 2.1LF
GeoList 2.1FF
Sellers/Davis/Shafer
Update by Gale Shafer for KX-P1091... uses FF - Form Feed instead of LF
*******************************
** GEOLIST 2.1FF ***
** MODIFIED VERSION OF ***
** GEOLIST V0.9 FROM MIKE ***
** SELLERS (MIK55)... ***
** MODIFIED BY BILL DAVIS ***
** (REBASAK) 10/10/87 ***
** MODIFIED BY GALE SHAFER ***
** (GALES) 11/23/87 ***
*******************************
(27)"@"
(27)"
***RESET PRINTER -ELITE
644,128:
56,126:
G1$(16),G2$(3),X1(5),X1$(5),NU$(99)
(147)
GET GEOS DATE & TIME----------
34069
5:X1(I)
X1$(I)
(X1(I)):X1$(I)
(X1$(I),2)
(X1$(3),1) :X3$
(X1$(3),1)
X1$(3)
X1$(2)
X1$(3)
X1$(1)
(X1$(5),1) :X3$
(X1$(5),1)
X1$(5)
X1$(4)
X1$(5)
(X6$,1) :XA$
(X6$,1)
X1(2)
X1(2)
" ":X5$
" "
INITIALIZE -------------------
66:OF
60:LN
PAGING-
FT$(I):
G2$(I):
G1$(I):
79:LN$
NU$(I)
(I),2)
BL$(I)
(I),1)
NU$(I)
BL$(I):BL$(I)
BL$(I)
AME
YPE
ATE
IME
RESTART POINT ---------------
"":ID$
"":FT$
"":TF
0:EOI
(147)
IST 2.1
- 1541"
NSERT
DISK IN DRIVE"
8)"PRESS "
(18)"RETURN"
(146)" TO CONTINUE,"
10)" OR "
(18)"F7"
(146)" TO CANCEL "
(136)
4620 :
CANCEL
7,4,7:
STATUS
(18)"
(146)
5000:
(17):
(5)"PROCESSING..."
15,8,15:
15,"I0":
15,EN$,EM$,ET$,ES$:
(17):
EN$", "EM$", "ET$", "ES$
*** BLOCKS FREE --------------
15,"M-R"
(250)
#15,B$:L
#15,B$:
#15,B$:H
(0)):BF
3,8,3,"$0,P,R"
781,3:
65478
B$:DOS
5140:DN$
5140:ID$
B$:OT
NU$(OT)
B$:OS
NU$(OS)
5140 :GF$
B$:B1
ISK "
ISK "
PPLICATION "
ISK":GF$
" "
65484
7,4,7:
2760:
PRINT HEADINGS ---------------
1 :LN
7,"
IST 2.1
: "DN$"
: "ID$" "X4$" "X5$"
AGE: "PG
7,B2$" "GF$"
RITE
ROTECT "DP$"
LOCKS
REE:"BF:
7,HD$
7,LN$ :
GET DOS FILE TYPE ------------
781,3:
65478
B$:FT
(0)):FT$
FT$(7
GET FILE NAME ----------------
5140
GET TRACK & SECTOR -----------
GET GEOS FILE STRUCTURE ------
B$:G2
G2$(G2)
GET GEOS FILE TYPE -----------
B$:G1
G1$(G1)
GET YEAR/MONTH/DAY -----------
B$:D1
(0)):
B$:D2
(0)):
B$:D3
(0)):
GET HOUR/MINUTES -------------
B$:D4
(0)):
B$:D5
(0)):
PROGRAM SIZE -----------------
B$:D6
(0)):
65484
CONVERT TIME TO 12 HOUR AM/PM
12:AP$
PROGRAM SIZE IN K BYTES ------
(D6) :BK$
(BK$,3) :
TOTAL BLOCKS
":D6$
(D6$,3)
(D6$)
NUMBER OF FILES -----
EOS "
7,4,7:
NU$(D2)
NU$(D3)
NU$(D1)
NU$(D4)
NU$(D5)
DT/TM
NU$(T):S$
NU$(S):
TRACK/SEC
GET GEOS VERSION NUMBER ------
6,8,6,"#":
15,"U1";6;0;T;S:
15,"B-P";6;89
781,6:
65478
5160
" " :
4080
(G3$,4):
65484
(V$,1):
" "
7,4,7
GEOS FILES -------------------
7,D6$" "F$" "V$" "FT$" "G1$" "M0$" "G2$" "T$" "S$" "BK$:
NON-GEOS FILES ---------------
7,D6$" "F$" "FT$" "G1$" "BK$
5620 :
781,3:
65478
5340:
15,EN$,EM$,ET$,ES$:
65484:
7,4,7
USED & FREE BYTES ------------
4): KT
4520
TK:TK
TK:TK$
(TK):TF$
(TF):UK$
7,UK$"
YTES
SED "TK$"
YTES
REE 165
YTES
OTAL"
OTAL
UMBER OF
ILES:"TF$"
OTAL
LOCKS
SED: "T6
5620
CLOSE PRINTER
NOTHER DISK? (Y/N)"
198,0:
198,1:
5680 :
QUIT
*** FILE TYPES ***************
DEL,SEQ,PRG,USR,REL,???
*** GEOS FILE STRUCTURES *****
","UNKN"
*** GEOS FILE TYPES **********
EOS "
ASIC
ROGRAM "
SSEMBLY
ROG "
ILE "
YSTEM
ILE "
CCESSORY"
PPLICATION "
PPL.
ATA "
ILE "
RINTER
RIVER"
NPUT
RIVER "
RIVER "
YSTEM
OOT "
EMPORARY "
XECUTE "
"UNKNOWN "
*** GET A BYTE ***************
FILES ON DESKTOP BORDER ------
65484:
7,4,7
(13)". . . . . .
ILES ON
ESKTOP
ORDER . . . . . .";
7," . . . . . . . . . . . "OT$" "OS$;
IS THERE A BORDER? -----------
4400
4400
3,8,3,"#"
15,"U1:"3;0;OT;OS:
15,"B-P:3,2"
------------------------------
65484:
7,4,7
(13)". . . . . .
ILES ON THE
ORDER. . . . . . .";
7," . . . . . . . . . . . "OT$" "OS$;
NOT GEOS DISK NO BORDER-------
FINISH PAGE ------------------
(7);:
*** FF AND BEL ***
END PROGRAM & RETURN TO GEOS *
RESS "
(18)"
(146)" TO RETURN TO
ASIC OR"
NSERT
ISK IN DRIVE 8"
"AND PRESS "
(18)"
ETURN"
(146)" TO RETURN TO
49152: